Find sum of elements of a list in prolog